1 CLEAR,,2:INPUT"PRENOM";P$:CLS:LOCATE21-LEN(P$),3:PRINTP$+" VOUS PRESENTE SES":SPC(255)SPC(159)"ET VOUS SOUHAITE UNE":ATTRB,1:LOCATE20,8:PRINT"* MEILLEURS VOEUX *":DEFGR$(0)=192,192,192,96,248,252,254,63:LOCATE1,19:PRINT"* BONNE ET HEUREUSE ANNEE 1985 *"
2 DEFGR$(1)=15,12,24,48,24,12,12,0:ATTRB1:PRINTTAB(18)GR$(0),TAB(18)GR$(1);:BOX-(319,199):A$="gSfRgSpNlPjOkMiLoJo99:$B,?,6#8-1'3-+),.'3,/+630198060=":FORI=1TO54STEP2:LINE-(4*ASC(MID$(A$,I))-132M4*ASC(MID$(A$,I=1))-132),4+11*(I=19ORI=21):NEXT:SCREENPRINT